home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 23 / sysact11.zip / ASKYN.PAS < prev    next >
Pascal/Delphi Source File  |  1987-02-02  |  458b  |  32 lines
  1.  
  2. {askyn - ask yes/no question, set errorlevel=1 if yes, 0 if no}
  3. {s.h.smith, 1-feb-87}
  4.  
  5. {$g1,p1}
  6.  
  7. var
  8.    i:   integer;
  9.    ans: char;
  10.  
  11. begin
  12.  
  13.    write(paramstr(1));
  14.    for i := 2 to paramcount do
  15.       write(' ',paramstr(i));
  16.  
  17.    write('? (Y/N) ');
  18.  
  19.    repeat
  20.       read(kbd,ans);
  21.       ans := upcase(ans);
  22.    until (ans = 'Y') or (ans = 'N');
  23.  
  24.    writeln(ans);
  25.  
  26.    if ans = 'Y' then
  27.       halt(1)
  28.    else
  29.       halt(0);
  30. end.
  31.  
  32.